<%
' Global constant
Const returnOFF = 0
Const returnON = 1

' Render Action Menu
Function renderActionMenu(ByVal r, ByVal Text, ByVal URL)
	Dim suffix, htmlStr
		
	Randomize(Now)
	Text = Trim(Text)	
	suffix = Left(Text, 1) & Right(Text, 2) & CStr(Hex(Fix(1+(Rnd()*1000))))
	
	htmlStr = "<tr><td class=""level_2""><a href="""& URL &""" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('img"& suffix &"','','images/arrowHover.gif',1)""><img src=""images/arrow_blue.gif"" name=""img"& suffix &""" width=""13"" height=""15"">"& Text &"</a></td></tr>"
	If r=returnON Then
		renderActionMenu = htmlStr
	Else
		Response.Write(htmlStr)
	End if
End Function


' Render Action Menu (active)
Function renderActionMenu_on(ByVal r, ByVal Text)
	Dim htmlStr
	
	Text = Trim(Text)
	htmlStr = "<tr><td class=""level_2 orange""><img src=""images/arrowHover.gif"" width=""13"" height=""15"" >" & Text & "</td></tr>"
	
	If r=returnON Then
		renderActionMenu_on = htmlStr
	Else
		Response.Write(htmlStr)
	End if
End Function

%>